home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / general / UndefinedObject.st < prev    next >
Encoding:
Text File  |  2004-01-31  |  352 b   |  19 lines
  1. "----------------------------------------------------------------"
  2. "'nil' Should be the only Undefined Object in the system.        "
  3. "----------------------------------------------------------------"
  4.  
  5. Class UndefinedObject :Object
  6. [
  7.    isNil
  8.      ^ true
  9. |
  10.    notNil
  11.      ^ false
  12. |
  13.    ifNil: aBlock
  14.      ^ aBlock value 
  15. |
  16.    printString
  17.      ^ 'nil'
  18. ]
  19.